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Acerca de este libro 


Este libro contiene programas sencillos de 
juegos para usar con un microordenador 
ZX81, ZX Spectrum, MSX, VIC 20, 
Commodore 64 o Apple. Y algunos son lo 
suficientemente pequeños como para que 
quepan en la memoria de 1 K de un ZX8]1. 

La mayoría de los micros usan el 
lenguaje BASIC, pero todos ellos tienen 
sus propias variaciones y dialectos. El 
listado que se da de cada programa en 
este libro corresponde al ZX81, y las líneas 
que tienen que cambiarse para otros 
ordenadores se marcan con un símbolo y 
se imprimen debajo. El hecho de que los 
programas hayan sido hechos para varias 
máquinas implica que no aprovechan todas 
las capacidades de cada una. Puedes 
intentar encontrar modos de hacer que los 
programas sean más cortos y bonitos. 

Para cada juego, se dan ideas para 
ampliar y modificar el programa y en la 
parte final del libro encontrarás ayudas y 
consejos para escribir tus propios juegos. 
También hallarás una tabla de conversión 
para ayudarte a adaptar los programas de 
revistas y otros libros a tu ordenador y un 
resumen de todos los términos del BASIC 
usados en este libro. 


Tecleado de los programas 


Las líneas que es necesario cambiar para 
otro ordenador que no sea el ZX81, se 
marcan con los siguientes símbolos: 

VIC 20 y Commodore 64 

MSX 

Apple 

ZX Spectrum 

ZX8l 

Cada vez que veas el símbolo del 
ordenador que estás usando, mira a la 
parte inferior de la hoja y teclea en su 
lugar la línea con el mismo número y con 
el mismo símbolo. 


kmo >» 


Recuerda estos puntos 


1. Teclea las líneas tal como están 
impresas, incluyendo todos los signos de 
puntuación y los espacios. 
2. Teclea RETURN o ENTER al final 
cada línea del listado. 
3. Comprueba cada línea cuando la 
termines. 
4. Asegúrate de que no te olvidas de 
ninguna línea ni confundes una con otra. 
Un trozo de papel o una regla es útil para 
señalar la línea por la que vas. 
5. Mira los signos y asegúrate de que usas 
las líneas correctas para tu ordenador. 
6. Si usas un ZX81 o un ZX Spectrum, 
recuerda que no tienes que teclear las 
instrucciones letra a letra, sino usar las 
teclas especiales existentes para cada 
instrucción. 

Puede resultarte más fácil que alguien ' 
vaya leyendo el listado mientras lo tecleas. 
No te olvides de explicarle que debe leer 
cada coma, punto, paréntesis y espacio y 
que tiene que diferenciar entre la letra “O” 
y el cero y entre la “I” y el uno. 


de i 


Eliminación de errores ] 


Cuando hayas tecleado el 
programa, mira el manual 
para ver cómo puedes 
conseguir que salga en 
pantalla. (Normalmente 
es la instrucción LIST 
seguida por el número de 
las líneas de la sección 
que quieres ver.) 
Comprueba que has 
tecleado todo 


correctamente. Es fácil 
confundirse, de modo 
que no te asustes si 
aparece algún error. Mira 
tu manual para ver cómo 
puedes hacer cambios al 
programa una vez que lo 
has tecleado, Si no estás 
seguro, siempre puedes 
volver a teclear toda la 
línea. Todos los 
ordenadores sustituyen 
una línea ya existente por 
una nueva con el mismo 
número. 

Aquí te damos una lista de los errores 
que más frecuentemente se suelen 
cometer: 

1. Líneas sin teclear. 

2. Líneas mal numeradas. 

3. Dos líneas seguidas. 

4. Se te puede haber olvidado algún signo 
de puntuación: paréntesis, comas, puntos 
o espacios; sobre todo en líneas 
complicadas y largas. Comprueba 
especialmente que existan tantos 
paréntesis abiertos como cerrados. 

5. Puedes haber tecleado una línea que no 
corresponda a tu ordenador. 

6. Confundir la letra “O” con un cero, o la 
“1” con un uno. 

7. Usar números erróneos. Por ejemplo, 
incluyendo ceros de más. 


Jugando con los programas 


Para empezar a jugar, teclea RUN. En 
algunos juegos, las cosas suceden muy 
rápidamente, por lo que tienes que leerte 
las instrucciones antes para saber qué es 
es lo que tienes que hacer. 

Es muy probable que el programa siga 
teniendo algún error y que no funcione o 
funcione mal. A veces el ordenador se 
parará y te dará un error. Para saber qué 


* Si tienes un Spectrum o un MSX mira la página 37, donde se te hacen indicaciones. 


significa puedes mirar el manual. Éste 
te puede ayudar a encontrar el error, 
pero no siempre lo hará. Lista el 
programa de nuevo y compáralo con 
el del libro con mucha atención. 

Cuando el programa se termine, el 
ordenador imprimirá una frase del tipo 
“BREAK IN LINE 200”. Para jugar de 
nuevo, teclea RUN. 


Experimenta con los juegos 


A lo largo del libro hay sugerencias para 
modificar y hacer añadidos a los 
programas, pero no tengas miedo de hacer 
otros que se te ocurran. No estropearás el 
ordenador y siempre puedes volver al 
original si lo que has cambiado no 
funciona. 

Probablemente querrás ajustar la 
velocidad de algunos juegos*, 
especialmente cuando ya tengas 
experiencia con ellos. Para ello, se indica 
en la página de cada programa qué línea 
hay que cambiar. 

En los sitios en los que aparece la 
instrucción PRINT, 
puedes cambiar el 
mensaje que hay entre 
las comillas por otro 
cualquiera que tú 
prefieras. También, a 
menos que tengas un 
ZX81 con sólo 1 K de 
memoria, podrás 
añadir más mensajes. 

Para hacerlo, teclea 


un número de línea 


(por ejemplo 105 si quieres ponerlo entre la 
100 y la 110) seguido de PRINT y del 
mensaje entre comillas. 

Si tu ordenador tiene colores y sonido, 
puedes mejorar tu juego añadiéndoselos al 
programa, siguiendo las instrucciones que 
se den en el manual del ordenador. 


Despegue espacial 


Eres el capitán de una nave espacial y te has estrellado con 
tu nave en un planeta desconocido del que debes salir 
rápidamente en otra nave que has capturado. El ordenador 
de ésta te indica la gravedad del planeta. Tú tienes que 
averiguar la fuerza necesaria para poder despegar. Si la que 
das es muy baja, la nave no despegará, y si es muy alta, el 
mecanismo de seguridad entrará en acción impidiendo que 
se destruya la nave espacial. Si todavía sigues en el planeta 
después de 10 intentos, sus habitantes te capturarán. 


Cómo funciona el programa 


cLs Borra la pantalla. 
PRINT "DESPEGUE ESPACIAL" 
El ordenador crea dos 


LET G=INT(RND420+1) números. Uno entre 1 y 20 
LET W=INT(RNDF40+1) (que almacena en G) y el otro 
D> entre 1 y 40 (que se almacena 
en W). 


LET R=G%W Multiplica el número en G, por 
el número en W, y almacena el 
resultado en R. 


PRINT "*GRAVEDAD= *";G Imprime GRAVEDAD y el 
número en G. 


PRINT "TECLEA LA FUERZA" —————_————— Te pide un número. 

FOR Cl 10 10 Esto empieza un bucle que le 
dice al ordenador que repita la 
siguiente sección 10 veces, 
para darte diez intentos. 


90 INP PA Guarda tu número en F. 


Compara el número en F con 
100 IF F>R THEN PRINT "DEMASIADO FUERTE”; el número en R, e imprime el 
110 IF F<R THEN PRINT "DEMASIADO FLOJO”; mensaje adecuado o salta a la 
120 1F F=R THEN GOTO 190 línea 190. 

Lo imprime si lo has intentado 
130 IF C<>10 THEN PRINT ", INTENTALO DE NUEVO” menos de diez veces 

y no has hallado la respuesta 

correcta. 


140 NEXT C Fin del bucle. Vuelve a la línea 
150 PRINT 80 para otro turno. 

160 PRINT "HAS FALLADO -* Esto lo imprime después de 
170 PRINT "TE HAN COGIDO" diez intentos fallidos. 

180 STOP 


190 PRINT "BUEN DESPEGUE” Sólo en el ZX81 y 
en el Spectrum, 


Este listado funcionará en un ZX81. puedes sustituir 


Para otros ordenadores, haz estos cambios: o por END. 
010 HOME (Observa qué 


A10 PRINT CHR$(147) parasol cs) 
15 PRINT "INTRODUCE UN NUMERO POSITIVO 
«(1 INPUT Z 
18 ZÑRND(-Z) 
*A030 LET GuINT(RND(1)%20) 
*AOQÍ0 LET WRINT(RND(1)%40) 


Cómo complicar el juego 


Rincón de los 


Puedes cambiar el programa para que problemas 

te deje menos de 10 intentos. Esto se 

hace alterando el último número de la Puedes cambiar los límites entre los 
línea 80 y el de la línea 130. (Los dos que se encuentran las fuerzas. ¡A ver 
tienen que ser iguales.) si averiguas cómo! 


mira la página 2. 


Juegos intergalácticos 


Hay una feroz lucha entre las compañías 
de televisión de todo el mundo para 
conseguir la exclusiva de los Primeros 
Juegos Intergalácticos. Todo depende de 
qué compañía consiga poner primero su 
satélite en la órbita correcta. 

Tú eres el ingeniero encargado de 
lanzar el de la compañía de televisión 

lo. Las decisiones cruciales 

acerca del ángulo y la velocidad de 
lanzamiento del cohete las tienes que 
tomar tú. ¿Podrás? 


En algún lugar cerca de ti, en el espacio profundo 
y oscuro, habita Elron, el Malvado. Has 
conseguido desactivar todas sus armas, 

excepto las de corto alcance, y todavía puede 
volver invisible su nave. Tú sabes que está 
en alguna parte del tablero tridimensional 
que puedes ver en la pantalla de tu 
rdenador (mira la figura de abajo); 
ro, ¿dónde? Tienes cuatro bombas 
espaciales. Cada una puede 
estallar en una casilla que le 
- indiques con tres números, 
entre 0 y 9, que te pedirá el 
ordenador. ¿Puedes echar 
al malvado Elron del 
espacio antes de que se 

deslice hacia ti y te 


ya? 


-4—— posición Y—+» (Norte) 


(Sur) 


e pon XxX ———> (Este) 9 


405 CLS 

10 PRINT "EL EXTRATERRESTRE 
*-— MALVADO" 

ZO LET S=10 

30 LET G=4 


LET X=INT(RNDFS) 
LET Y=INT(RND*S) 
LET D=INT(RND*S) 


FOR I=1 TO G 


80 PRINT "POSICION X (0 A 9)?* 
85 INPUT Xi 
90 PRINT "POSICION Y (0 A 9)2* 
100 INPUT Yl 
110 PRINT "DISTANCIA (0 A 9)?” 
120 INPUT DI 


Cómo funciona el 
programa 


Pone el número de casillas 
por cada lado. 


Pone el número de 
intentos. 


La posición de Elron se fija en 
estas líneas, que seleccionan 
3 números, entre 0 y el 
máximo fijado para cada lado. 


Empieza un bucle que le 
dice al ordenador que tiene 
que repetir las siguientes 
líneas G veces. 


Esta sección te pide tres 
números y los almacena en 
X1, Y1 y Dl. 


130 IF X=X1 AND Y=Y1 AND D=D1 THEN GOTO 300 Mira si 


140 PRINT "EL TIRO FUE AL *; 
150 IF Y1>Y THEN PRINT "NORTE"; 
160 IF Y1<Y THEN PRINT *SUR*; 
170 IF X1>X THEN PRINT "ESTE*¡ 
180 IF X1<X THEN PRINT "DESTE"; 
190 PRINT 


has acertado 
y salta 
a la línea 300, si es así. 


Compara tus intentos 
con la posición de 
Elron e imprime un 
mensaje. 


200 IF D1>D THEN PRINT "DEMASIADO LARGO" 
210 IF DI<D THEN PRINT "DEMASIADO CORTO" 


220 NEXT 1 Final del bucle. Vuelve a 


230 PRINT "TU TIEMPO HA PASADO!!!” 


240 STOP 
300 PRINT "*BOOM* LE PILLASTE!* 
310 STOP 

Este listado funcionará en un ZX81. 

Para otros ordenadores, haz estos cambios: 


05 HOME 
45 PRINT CHR$(147) 
15 PRINT "INTRODUCE UN NUMERO POSITIVO" 
al INPUT Z 
18 ZÑRND(-Z) 
*XA040 LET XuINT(RND(1)45) 
*XAOS0 LET Y=INT(RND(1)4S) 
*XAO60 LET D=INT(RND(1)%S) 


Rincón de los problemas 


¿Puedes modificar el programa de modo É 
que el ordenador te pida un número de 
dificultad que pueda almacenar en S en 
vez de dejarlo fijo? (Ayuda: limita el 

valor de S a uno entre 6 y 30 y usa 
INT(S/3) para el valor de G en la línea 30.) 


coger otro tiro. 


Esto lo imprime si ya has 
usado todos tus tiros. 


Esto lo imprime si acertaste. 


Cómo hacer el juego más difícil 


Puedes modificar fácilmente el nivel de 
dificultad cambiando el número de 
casillas. Para hacer esto, cambia el valor 
de S en la línea 20. 

Si incrementas el tamaño, necesitarás 
más bombas para tener más 
posibilidades de destruir a Elron. Hazlo 
cambiando el valor de G en la línea 30. 


Golpea los ojos de la oruga 


¡Estás atrapado! En cualquier lugar al que miras, encuentras la fría 
mirada de una oruga espacial que se esconde rápidamente detrás de 
una roca. Se dirige lentamente hacia ti, cercándote y esperando el 
momento propicio para agarrarte con sus antenas pegajosas. 
Afortunadamente, tienes tu pistola de protones. 

Las orugas aparecen en cuatro sitios diferentes de la pantalla, que 
corresponden respectivamente a las teclas 1 a 4. Pulsa la correcta 
mientras los ojos están en la pantalla y las destruirás. Hay diez orugas 
en total. 


Cómo funciona el programa 


_J0 PRINT "OJOS DE ORUGA” Pone la puntuación a cero 
20 LET S=0 al principio del juego. 


30 FOR T=1 TQ 10 Principio de un bucle que 
te da 10 turnos. 


* 


4040 CLS Borra la pantalla. 
xA050 FOR I=1 TO INT(RNDF30+20) AA DE 
60 NEXT 1 dependiendo del valor que 
genere RND. 


*A070 LET R=INT(RNDI4+1) Elige un número de 1 a 4 y 
lo guarda en R. 


*kA080 GOSUB 210+30%R Salta a una rutina de entre 
a ra o el 
'GOSUB hace que el ordenador valor de R. Éstas obtienen 
salte desde la parte principal dos números que 
del programa a una corresponden a una 
“subrutina” (en la página posición de la pantalla 
siguiente). El RETURN al —“A” espacios y “D” 
final de la subrutina lo envía líneas— y salta de nuevo a 
a la parte principal de nuevo. 350 para pes el cursor a 
esta posición. 
90 PRINT "00" ————=————————— Imprime los ojos de la 
00 FOR I=l1 TO 20 oruga en esta posición. 
110 LET Ré=INKEYS Hace un bucle para ver si 
estás pulsando una tecla. Si 
A e lo estás haciendo salta a la 
130 NEXT 1 
e línea 140 y mira si es la 
140 IF VAL("0"+R$)<)R THEN GOTO 210 correcta. 


150 LE ek Incrementa la puntuación en 1. 


A E 


e 


E 


Sapo rI? 


A0160 CLS Borra la pantalla. 


180 


Envía el cursor a la misma 
170 GOSUB 350 posición e imprime estrella. 
PRINT ** 
Bucle de espera que hace 


*a0190 FOR J=1 TO a que la estrella esté en la 


200 NEXT J 


pantalla el tiempo 
suficiente para que la veas. 


210 NEXT T Vuelve para otro turno. 


220 


PRINT "DESTRUISTE "jS3*/10 ORUGAS* ——————— Imprime la puntuación. 


230 STOP 

240 LET D=5 

250 LET A=1 

260 GOTO 350 . ¡NAS Subrutinas. 
270 LET D=1 A 
280 LET A=9 

290 GOTO 350 

300 LET D=5 

310 LET A=18 

320 GOTO 350 

330 LET D=1l0 

340 LET A=7 

350 FOR I=l TO D 

360 PRINT 

370 NEXT 1 

380 PRINT TAB(A)5 

390 RETURN 


Este lista: 


do funcionará en un ZX81. 


Para otros ordenadores, haz estos cambios: 


15 

«li 
18 
es, 
430, 

*a050 


PRINT "INTRODUCE UN NUMERO POSITIVO" 
INPUT 2 

ZBRND(-Z) 

160 HOME 

160 PRINT CHR$(147) 

FOR I=1 TO INT(RND(1)4300+200) 


'O LET R=INT(RND(1)%4+1) 
O ON R GOSUB 240,270,300,330 


00 
elos 


FOR I=1 TO 150 
Rga"* 


A110 GET R$ 
O 110 IF PEEK(-16384)>127 THEN GET RS 
*x40 190 FOR J=1 TO 300 


Alunizaje 


Estás al mando de un módulo lunar encargado de llevar a un equipo de astronautas 2 
a la Luna. Para poder llegar a salvo, tienes que descender lentamente, pero eso 
consume combustible y no tienes mucho. 
Tu ordenador te dirá la altura y velocidad inicial, así como el combustible 
disponible y después te preguntará cuánto quieres usar. Cuando se lo digas, 
calculará tu nueva posición y velocidad. Un encendido de 5 mantendrá tu velocidad 
constante. Un número mayor, la reducirá. Intenta conseguir una velocidad tan 
próxima a cero como sea posible cuando alunices. J 


Fíjate en las comas y en los 
puntos y comas en las 
líneas 70 y 80. Prueba a 


A0l0 CLS quitarlos y a cambiarlos 
20 PRINT "ALUNIZAJE” entre sí a ver qué sucede. 
30 LET T=0 
40 LET H=500 
50 LET V=50 


60 LET F=120 
70 PRINT "TIEMPO "5T;"ALTURA "¡H 
80 PRINT "VEL. *V,*FUEL*;F 


90 IF F=0 THEN GOTO 140 


100 PRINT "ENCENDIDO? (0-30)* 
110 INPUT B 

120 IF B<O THEN LET B=0 

130 IF B>30 THEN LET B=30 
140 IF B)F THEN LET B=F 


150 LET Vi=Y-B+5 
160 LET F=F-B 


170 1F (V1+V) /2>=H THEN GOTO 220 ————————————————————————— 


180 LET Ha=H-(V1+V)/2 
190 LET T=T+1 
200 LET V=V1 


210 GOTO 70 


220 LET Vi=V+(5-B)4H/V 

230 IF V1)5 THEN PRINT "TE ESTRELLASTE-TODOS MUERTOS” 

240 IF V1>1 AND V1<=5 THEN PRINT "OK- PERO ALGUNOS HERIDOS" 
250 IF Vi<=1 THEN PRINT "BUEN ATERRIZAJE.” 

260 STOP 


Este listado funcionará en un ZX81. 
Para otros ordenadores, haz estos cambios: 


010 HOME 
A10 PRINT CHR$(147) 


12 4x0 mira la página 2. 


Cómo funciona el programa 


' Pone los valores iniciales de 
tiempo, altura, velocidad y 
=== gasolina y los imprime. 


Si no te queda gasolina, el 
ordenador se va a la parte 
final del programa, 
——_ saltándose la sección que te 
de el combustible a usar, e 
| imprime un comentario de tu 
cercanía a la superfici 


———— Lee el número de gasolina 
que quieres usar y 
comprueba si está dentro de 
los límites correctos. 


Calcula tu nueva velocidad, V1. 


——— Calcula tu nuevo nivel de combustible. 


Comprueba si la distancia 
recorrida en el último intento 
es mayor o igual que la 
altura sobre la Luna. Si es 
así, has aterrizado. El 
ordenador se va entonces al 
final del programa para ver 
qué tal alunizaje has hecho. 


——= Calcula tu nueva altura. 
——— Incrementa el tiempo en 1. 


——_—— Pone tu nueva velocidad en V, de 
modo que la imprima en la línea 
80 en tu próximo intento. 


== Vuelve al principio del bucle 
para un nuevo intento. 


Calcula tu velocidad al hacer 
—— contacto y mira qué tal lo 
has hecho. 


Rincón de los problemas 


Puedes hacer el juego más sencillo 
incrementando la velocidad máxima permitida 
para un aterrizaje seguro. ¿Cómo cambiarías el 
programa para que hiciese esto? 


Los monstruos de Galacticón 


El aterrizaje en Galacticón fue fácil, 
pero nadie te avisó de que aquí se 
encontraban algunos de los 
monstruos más desagradables de 
todo el universo. 

Cuando un monstruo te ataque, 
tendrás que elegir cuál de tus armas 
usar: Una pistola de rayos, un 
bazooka Trypton o una espada 
sónica. ¿Puedes hacer la elección 
correcta? Si es así, podrás vivir lo 
suficiente para conquistar 
Galacticón. 


Cómo funciona 
el programa 


Crea un sitio para almacenar 
datos (una “matriz”) con el 
nombre M$, que tiene cuatro 
compartimentos, M$(1) a M$(4), 
para cada monstruo. 

0 LE A Hace que el número de 
monstruos sea 4. 

Hace que el número de 
personas en tu grupo sea 5. 


10 PRINT "LOS MONSTRUOS DE GALACTICON" 
* 
20 DIM M8(4) 


40 LET Me5 


50 LET MS(1)="SULFACIDOR” 

60 LET M$(2)="FLAMGONDAR” 

70 LET M$(3)="BALNOLOTIN" 

80 LET M$(4)="GOLANDOR* 

90 FOR I=1 TO N 
*A0100 LET A=INT(RNDEN+1) 
*XAOL10 LET B=INT(RNDEN+1) 

120 LET Té=M8(A) 

130 LET MS(A)=M$(B) 

140 LET MS(B)=T8 

150 NEXT 1 


Pone los nombres de los 
monstruos en la matriz. 


Estas líneas barajan los nombres 
de los monstruos. El ordenador 
ejecuta un bucle N veces. Cada 
vez selecciona dos números 
entre 1 y N y cambia entre sí los 
nombres de sus compartimentos. 
T$ es una cadena de 
almacenamiento temporal usada 
durante el cambio. 


Puedes utilizar 
esta rutina de 
barajado siempre 
que quieras mezclar 
algo. 


160 FOR T=1 TO 8 
40170 CLS 


*A0180 LET R=INT(RNDAN+1) 
190 PRINT "VIENE UN MONSTRUO. ..* 
200 PRINT *ES UN ":MS(R) 


Empieza el bucle de 8 turnos. 
Borra la pantalla. 


Elige uno de los monstruos e 
imprime su nombre. 


210 PRINT "QUE ARMA ? (R,S,T)* El ordenador usa los valores 
220 INPUT R$ en R y R$ para elegir un 
*A0M230 LET W=CODE (RS) -54+R número de arma, W, que 


4240 LET W=W-3%(W>3)-3%(W>6) puede ser 1,263. 
Si W es 2, el ordenador salta 


250 1F W=2 THEN 6070 300 ——__—_—_—_—_—_—_—_—_—_—_—_—_—_—_—-_ 4 la línea 300 para decirte 
que has matado al monstruo. 


ODUCE UN NUMERO 


Cazas extraterrestres 


uno de sus motores, ha entrado en un ás 
Los cazas extraterrestres te e tán até 

Tas cosas, están utilizando un extraño dispo , 
adar que hace que dé falsas lecturas. Afortunad a 
rdenador conoce un código que puedes usar para | a 
iones correctas de las naves enemigas. Pero debes Y Y 
¡No perm: 'n en el mismo sitio durante mucho tiempo! 
¡ ordenador imprimirá una letra (la posición falsa del enemigo) y u 
de código. Debes contar en el alfabeto ese número de letra partir de 
te da (recuerda que la Ñ no existe) y pulsar la letra que obtengas. Por 
para M4 debes teclear una Q y para C2 una E, etc. Al p 
dispai automáticamente tu cañón láser, de modo que si era 


número del 1 al 10 y es el máximo número de leí as 
pe 7 EN 2 


v z. E Sr | cada juego hay diez cazas. ¡Á ver cuánto; 


axem mira la página 2. 


Cómo funciona el 


aA0l0 CLS programa 


X"20 PRINT *CAZAS EXTRATERRESTRES" 
30 PRINT 
"NIVEL (1-10)* 
D 
IF D<i OR D>10 THEN GOTO 50 
Pone la puntuación inicial a 


LET Ss=0 Leto, 


FOR G=1 TO 10 Principio de un bucle que te 
deja diez intentos. 


*A0B90 LET L$=CHR$(INT(RND*(26-D) +38) ) Selecciona una letra entre la 
A y la que tiene tu número 
de dificultad, contando desde 
el final del alfabeto. 


Coge el número de dificultad 
que le teclees, lo pone en D 
y mira si está dentro de los 
límites correctos. 


*AO100 LET N=INT(RADD+1) ——______—__——— Selecciona un número entre 
1yD. 
A0110 CLS a 
120 PRINT Imprime la letra y el número. 


130 PRINT LS,N 


40 FOR I=1 TO 20+D45 
50 LET I$=INKEYS Comprueba si estás 


160 IF I8<>"" THEN GOTO 190 pulsando una tecla y, si es 
170 NEXT 1 así, salta a la línea 190. 


180 GOTO 200 Si no has pulsado una tecla, 
se va a la línea 200, que lo 


PARA CONVERTIR envía a hacer otro intento. 


LETRAS EN 


Examina la 
tecla que has 
pulsado y, si es 
la correcta, te 
*AQ190 IF IS=CHR$(CODE (L$)+N) THEN LET $51 ——___———— da un punto. 


200 NEXT G Final del bucle. Empieza otro 


210 PRINT "ACERTASTE ";Sj"/10* Eno) de 
220 STOP Imprime la puntuación 


después de diez turnos. 


Este listado funcionará en un ZX81. 
Para otros ordenadores, haz estos cambios: 


010,110 HOME 
A10,110 PRINT CHR$(147) 
15 PRINT *INTRODUCE UN NUMERO POSITIVO" 
417 INPUT 2 
18 Z=RND(-Z) 
*XA090 LET LS=CHRS(INT(RND(1)+(26-D)+65)) 
90 LET LS=CHRS(INT(RNDF(26-D)+65)) 
*AG100 LET N=INT(RND(1)%D+1) 
FOR I=l TO 200+D*50 
FOR I=1 TO 100+D*50 
19=** 
GET 18 
IF PEEK(-16384)>127 THEN GET 18 
KAOQ170 IF I6=CHRS(ASC(LS)+N) THEN LET S=S+1 


Cinturón de asteroides 


Estás realizando un viaje a través del cinturón de asteroides, y para no 
chocar con ellos, debes destruirlos. La fuerza necesaria para ello 
depende del tamaño de cada uno. 

Los asteroides aparecen en tu pantalla como grupos de estrellas. 
Para destruirlos, debes pulsar la tecla del número correspondiente al 
número de estrellas (por ejemplo, si hay siete estrellas, debes pulsar 
un 7). ¡Prepárate: los asteroides vienen hacia ti, duros y rápidos! 


Como cambiar 
la velocidad 


La línea 180 controla 
cuánto tiempo tienes 
para pulsar una tecla. 
Cambia el último número 
en esa línea por uno 
inferior para acelerar el 
juego. 


Rincón de los 
problemas 


Adapta la puntuación de 
modo que para cada 
asteroide obtengas el 
mismo número de puntos 
que estrellas hay en él? 


Viaje al futuro >» /» 
Vas en una nave <= qye 
espacial que viaja casi / 
tan veloz como la luz. a Lz 
Curiosamente, el EN 

tiempo pasa más N | dls 
despacio dentro de tu / ' 

nave que fuera, de 
modo que si 
emprendes un largo y 
rápido viaje, puedes 
volver a la Tierra 
mucho más allá del 
futuro que lo que 
indique el reloj de tu 
nave. En este juego, tu 
ordenador te dice 
cuántos años deben 
pasar en la Tierra 
antes de que vuelvas, 
Tienes que decidir 

la longitud de tu viaje 
(en años-luz) y la 
velocidad de tu nave 
(como una fracción de 
la de la luz). ¡Si vas 
demasiado lejos o 
demasiado despacio, 
morirás de viejo en el 
camino! E 3 


Cómo funciona el 
A010 CLS rograma 


xX020 PRINT "VIAJE AL FUTURO" Elige un número entre 25 y 


30 LET T=INT(RNDF1O0+25) 124, que es el que 

40 PRINT "DESEAS VOLVER ";T corresponde a los años que 
50 PRINT "AGNOS EN EL FUTURO. * deben pasar antes de que 
60 PRINT vuelvas, y lo imprime. 

70 PRINT "VELOCIDAD DE LA NAVE (0-1)* Te pide la velocidad y 

80 INPUT Y comprueba que está dentro 
90 IF V>=1 OR V%=0 THEN GOTO 70 de los límites correctos. 


100 PRINT "DISTANCIA DEL VIAJE" i i i 
A, -J— Te pide la distancia. 


120 LET Ti=D/V Calcula el tiempo 
transcurrido dentro de la 


a*xem mira la página 2. 


130 LET T2=T1/SOR(1-VXV) 


Calcula el tiempo 


transcurrido fuera de la nave 


(es decir, en la Tierra). 


140 PRINT "TARDASTE "+T1j" AGNOS* 
150 PRINT "Y LLEGASTE *;T2;" AGNOS" Imprime estos tiempos. 
160 PRINT "EN EL FUTURO. * 


180 IF ABS(T-T2)<=5 THEN PRINT "LLEGASTE A TIEMPO" 
190 IF ABS(T-12)>5 THEN PRINT "NI SIQUIERA CERCA” 


200 STOP 
210 PRINT "HAS MUERTO EN EL CAMINO” 
220 STOP 


Este listado funcionará en un ZX81. 
Para otros ordenadores, haz estos cambios: 


0L0 HOME 
410 PRINT CHR$(147) 
15 PRINT *INTRODUCE UN NUMERO POSITIVO 
> INPUT 2 
18 Z=RND(-Z) 
*XA030 LET T=INT(RND(1)*100+25) 


Comprueba si tardaste más 
170 IF T1>50 THEN GOTO 210 =——_—_—_—_—_—_——— que tu tiempo de vida (50 
años) y salta a la línea 210, si 


es así. 


Comprueba 
si acertaste 
con un error 
de 5 años e 
imprime un 
mensaje. 


Rincón de los problemas 


¿Puedes cambiar el programa para 
que haga las siguientes cosas?: 

1) Dar un rango más amplio de años 
que deben pasar antes de volver a la 
Tierra. 

2) Disminuir el error permitido de 5 
años a 2 años. 

3) Modificar tu tiempo de vida. 


”—0 PRINT "VALLE DE LA MUERTE" 
20 LET 8=0 - 


30 LET M=200 


40 PRINT "ANCHO?" 
50 INPUT W 
60 LET W=INT(W/2) 


470 LET L=J0 
80 LET Ya 
90 LET R=%W 


*xA0100 LET D=INT(RNDA3-1) 


Cómo funciona el programa 


Pone el número de avances a 
cero para empezar el juego. 
M es el máximo número de 
avances permitido. 

Te pide una anchura, la 
divide por 2 y usa INT para 
quitar decimales. 


_ L, Y yR son las distancias 
entre los muros y el Dardo. 


Y espacios 


Ll ááKÁáÁáÁáÁáKáKúá 


EWal 
principio) 
Selecciona -1, 0 6 +1 y lo 
pone en D. 


110 IF L+D<O OR L+D>20 THEN GOTO 100 ==. Comprueba L+D para que 


las columnas no “se salgan” 


120 LET LsL+D - de la pantalla. 

130 LET Y=Y-D Cambia los espacios entre 

140 LET R=R*D columnas según el valor de 
D. 


A 


+D 


*AO0M 145 SCROLL 
150 LET N=L 
160 GOSUB 1000 
170 PRINT *"1*j 


+D 


Mueve el cursor L espacios a 
través de la pantalla e 
imprime una 1, (El punto y 
coma evita que el cursor se 
vaya a la línea siguiente.) 


Mueve el cursor Y espacios 


180 LET NaY 
190 GOSUB 1000 más e imprime *. 
200 PRINT "**j 
Mueve el cursor otros R 


espacios e imprime otra l. 


vez, de modo que el cursor 


210 LET N=R (No hay punto y coma esta 
220 GOSUB 1000 
PRINT *I* baja a la siguiente línea.) 


LET IS=INKEYS 


Mira a ver si estás pulsando 
una tecla. 


IF 1$<>"98* THEN coro 220=———— Si la tecla pulsada no es Q, 


salta a la 280. 
LET Y=Y-1 A 
a Si es Q, Y disminuye 1 y R 
LET Ri 0] aumenta 1, de modo que la 


estrella se mueve a la izquierda. 


IF 18<>*P" THEN GOTO 310 == Comprueba si has pulsado P. 


LET Yayo] Si es asi, la estrella se mueve 
LET R=R-1 a la derecha incrementando 
Y en 1 y disminuyendo R en 1 


IF Y<I OR R£1 THEN GOTO 370 


Mira a ver si has chocado 
con un muro, y, si es así, 
salta a la 370 para decirtelo. 


LETS AAA] y crementa el número de 


IF S<M THEN GOTO 100 


avances en uno. 


Vuelve por otro avance si has 
hecho menos de M avances. 


340 PRINT "BIEN HECHO - LOGRASTE* Imprime esto si has hecho M 
350 PRINT "ATRAVESAR EL VALLE" avances y no has chocado. 


360 STOP 

370 PRINT "HAS CHOCADO CON EL MURO” 
380 PRINT "Y TE HAS DESINTEGRADO* 
390 STOP 

1000 IF N=0 THEN RETURN 

1010 FOR I=1 TO N 

1020 PRINT * *j 

1030 NEXT 1 

1090 RETURN 


Este listado funcionará en un ZX81. 
Para otros ordenadores, haz estos cambios: 


17 INPUT Z 
18 ZÑRND(-Z) 
470 LET Lu4 
100 LET D=INT(RND(1)%3-1) 
45 
235 18="" 
4240 GET 18 
0 240 IF PEEK(-16384)>127 THEN GET 18 


la PRINT "INTRODUCE UN NUMERO POSITIVO" 
* 


Subrutina para mover el 

cursor al lugar apropiado 

para imprimir | y *. 
AA 


Cómo cambiar 

la velocidad 

..puedes añadir un bucle de 
espera en las líneas 141 y 
142: 


141 FOR J=1 TO 100 
142 NEXT J 


Cambia el número en la línea 
141 para ajustar la velocidad: 
cuanto menor sea el número, 
más rápido será el juego. 


Rincón de los 
5 problemas 


¿Cómo puedes hacer 
el valle más largo? 


“Minas 
espaciales 


*A030 LET M=INT(RNDASO+10)4P 
40:40 LET EPRINTIRNDI40480) 
NDX40+80) 


*A050 LET CE=INT 


250 INPUT CS 
260 IF CS0 OR CS 
270 LET C=c-CS 


280 LET M=M+CS*CP 


VENTA MINA="¡LP¡"/MINA" y 
MINERAL QUIERES VENDER?” ] Te pregunta cuánto mineral 

quieres vender, lo pone en CS y 
>C THEN GOTO 240 comprueba que lo tienes. 


Quita la cantidad vendida del 
almacén. 


Calcula cuál es el valor del 


290 PRINT "CUANTAS MINAS QUIERES VENDER?" mineral vendido y lo añade al 


300 INPUT LS 


dinero que ya tenías. 


310 IF LS(0 OR LS)L THEN GOTO 290 Realiza el mismo proceso con la 


320 LET L=L-LS 
330 LET M=M+LSELP 
340 PRINT 

2350 PRINT *TIENES 
360 PRINT 


venta de minas. 


mo soe | ——— Imprime el dinero 
que tienes en este momento. 


370 PRINT "COMPRANDO" Te pregunta 
380 PRINT "CUANTO GASTAS EN COMITA (APROX 100 CADA)* cuánto 
390 INPUT FB quieres 


400 IF FB<0 OR FB>M THEN GOTO 380 


410 LET M=M-FB 
24 


gastar en comida y pone la cantidad en FB. 


Mira a ver si tienes suficiente 
dinero para pagar. 


Ajusta el dinero que te queda. 


4 crm 


440 PRINT "CUANTAS MINAS COMPRAS?" 
450 INPUT LB 
460 IF LB<O OR LB+LP>M THEN GOTO 440 


ca - ñ atisfacción 
420 IF FB/P>120 THEN LET S=S+,1 en función de lo que Té gastas 
430 IF FB/P<80 THEN LET S=S-.2 en comida. 


4 


Ajusta el factor de s: 


Te pregunta cuántas minas 
quieres comprar y mira a ver si 
te lo puedes permitir. 


470 LET LEA A Incrementa el número de minas 


480 LET M=M-LB4LP 
490 IF SX.6 THEN GOTO 660 


*XA0500 IF S)1.1 THEN LET CE=CE+INT(RNDFZ0+1) 


si es necesario. 
Ajusta tu dinero de nuevo. 


Comprueba el valor del factor 
de satisfacción. Si éste es muy 
bajo, salta a la línea 660 para 
terminar el juego. 


Si S es alto, entonces la 
cantidad producida por mina es 
incrementada. 


*kAOQ510 1F S(,9 THEN LET CE=CE-INT(RND420+1) =—————— Si S es bajo, la cantidad 


producida se reduce. 


520 1F P/L<10 THEN GOTO 60 ——————————————== Si hay menos de 10 personas 


*xA0530 1F S)1.1 THEN LET P=P+INT(RNDFLO+1) 
*x40540 IF S<.9 THEN LET P=P-INT(RND*10+1) 


550 IF P<30 THEN GOTO 700 
*xA40 560 IF RND>.01 THEN GOTO 590 


por mina, el juego se termina. 
Si S es alta, llega más gente. 
Si S es baja, se va gente. 

Si hay menos de 30 personas, 


termina el juego. 
570 PRINT *DESPRENDIMIENTO... MUCHOS meros: | — mts una posibilidad de 


580 LET P=INT(P/2) 
590 IF CEX150 THEN GOTO 620 


que la mitad de la gente muera. 


Si la cantidad producida por 
600 PRINT "MERCADO SATURADO - EL PRECIO CAE" mina es muy alta, el precio del 


610 LET CE=INT(CE/Z) 


620 LET Y=Y+1 
630 IF Y<11 THEN GOTO 90 


mineral se divide por 2. 

Los años se incrementan en uno 
y si es menos que 11, vuelve a 
la línea 90 para otro turno. 


640 PRINT "SOBREVIVISTE A TU MANDATO" 
630 STOP O rs esto si el ordenador 


660 PRINT "HAY UNA REVUELTA" 


670 STOP 
680 PRINT "HAS SOBRECARGADO A TODOS” 
690 STOP 
700 PRINT "NO HAY SUFICIENTE GENTE” 
710 STOP 


Este listado funcionará en un ZX81. 
Para otros ordenadores, haz estos cambios: 


5 PRINT "INTRODUCE UN NUMERO POSITIVO” 
AS 7 INPUT Z 

8 ZÑRND(-Z) 
0110 HOME 
A110 PRINT CHR8(147) 


*kA010,20,30,40,50,90,100,500,510,530,540,560 
a4x0m mira la página 2. 


cambia RND a RND(1) 


alcanza esta etapa en el décimo 
turno. 


Rincón de los 
? problemas 
¿Podrías hacer que el 
ordenador te pregunte si 
quieres jugar otra vez y 
añadir el dinero con que 
has terminado a la 
cantidad inicial del 
nuevo juego? 


Rescate espacial 


Debes hacer un viaje urgente, a través del brazo espiral de la galaxia, a un 
planeta en desarrollo que necesita suministros médicos. El viaje supone 
recorrer distancias tan largas que la mayor parte del tiempo estarás en un 
sueño profundo; pero, antes de esto, debes programar la nave para el 
viaje. El ordenador te preguntará cuánta energía quieres proporcionar a 
los motores, al soporte de vida y a los escudos antes de empezar a dormir. 

Cuando te despiertes te dará un informe de lo que ha sucedido durante 
el viaje y, si todo va bien, estarás orbitando alrededor del planeta. En este 
momento, debes utilizar tu energía restante en los cohetes de aterrizaje y 
en los escudos, de modo que puedas hacer un buen aterrizaje en el 
planeta. 

Si logras terminar la misión a salvo, tienes una buena posibilidad de 
que te asciendan a almirante espacial. ¡Buena suerte! 


aA0l0 CLS 
20 PRINT "RESCATE ESPACIAL” ] . 
30 PRINT y 
. 40 PRINT "QUIERES INSTRUCCIONES?" 
50 INPUT 1% 
*a2060 IF I$(1)="S" THEN GOSUB 1000 
x4070 LET D=INT(RNDXS00+101) | 
*2080 LET E=INT(RNDX400+401) 
90 LET T=INT(D/SOR(E/5)+.5) 
100 PRINT "EL PLANETA ESTA A "¡D;” UNIDADES" 


110 PRINT. "TIENES ";Ej" UNIDADES DE ENERGIA" E 
120 PRINT "Y UN TIEMPO LIMITE DE ";T;*" DIAS” 
130 PRINT 


"140 PRINT "DISTRIBUCION DE ENERGIA: * 
150 PRINT "MOTORES?" 
160 INPUT P - 
170 PRINT "SOPORTE DE VIDA?* o . 
180 INPUT L 
190 PRINT "ESCUDOS?" 
200 INPUT S 
210 IF P+L+S>E THEN GOTO 140 
. 220 LET X=E-P-L-S 
230 LET V=INT(SOR(P)) 
240 LET T1=INT(D/V) 
120250 CLS 
260 PRINT "TU VELOCIDAD ES *;V 
270 PRINT "LLEGADA EN ";T1;* DIAS” 
280 PRINT 
*a0290 FOR I=1 TO INT(RNDX5+6) 
*40300 IF RND>.S THEN GOTO 430 
*aA0310 GOTO 320+INT(RND*4)%X30 
26 320 PRINT "TORMENTA DE ASTEROIDES - ESCUDOS ROTOS” 


x40330 LET S=S-20-INT(RNDF40+1) 
340 GOTO 430 
350 PRINT "ORDENADOR ROTCIO: RETARDO EN REPARACION" 
*40360 LET D=D+INT(RND420+1) 
370 GOTO 430 
380 PRINT "PROBLEMA DE MOTOR: DEBEMOS FRENAR* 
390 LET V=V-,5 
400 GOTO 430 
410 PRINT "RAYOS X - SOPORTE DE VIDA ROTO" 
420 LET L=L-20-INT(RND40+1) 
xa0430 FOR J=1 TO 50 
440 NEXT J 
450 NEXT 1 
460 LET T1=INT(D/V) 
120470 CLS 
480 PRINT "LLEGADA EN "¡T1j" DIAS” 
490 IF S<0 THEN PRINT "ESCUDOS ROTOS” 
495 IF S<0 THEN PRINT "FUISTE DESTRUIDO” 
500 IF L<=0 THEN PRINT "SOPORTE DE VIDA INACTIVO* 
505 IF L<=0 THEN PRINT "ESTAS MUERTO” 
S10 IF V<=0 THEN PRINT *MOTORES NC USABLES” 
520 IF T1>T THEN PRINT "TARDASTE DEMASIADO” 
530 IF S<0 OR L<=0 OR V<=0 OR T1)T THEN STOP 
*40540 LET G=INT(RND*10+5) 
550 LET G$="ALTA* 
560 IF G<12 THEN LET G$= "MEDIA” 
570 IF G<8 THEN LET G$="BAJA” 
*40580 LET A=INT(RND*10+5) 
590 LET A$="ALTA” 
600 IF AX12 THEN LET A$="MEDIA* E 
610 IF A<8 THEN LET A$="BAJA” 
620 PRINT 
630 PRINT "ESTAS EN ORBITA DEL PLANETA” 
640 PRINT "ENERGIA DE SOBRA="¡X 
650 PRINT "GRAVEDAD ES *¡6$ 
660 PRINT "ATMPOSFERA ES *¡A$ 
670 PRINT 
680 PRINT "CUANTA ENERGIA A COHETES-FRENO?” 
690 INPUT B 
700 PRINT "CUANTA ENERGIA A ESCUDOS?” 
710 INPUT S 
720 IF B+S>»X THEN GOTO 680 
40730 CLS 
740 IF B>=G*10 THEN GOTO 770 


El programa continúa en la página siguiente. 


ZN 


Continuación de Rescate espacial 


750 PRINT "HAS HECHO UN NUEVO CRATER* 
760 GOTO 840 A 
770 IF S)=AX*10 THEN GOTO 800 , 
780 PRINT "HAS CREADO UNA ESTRELLA FUGAZ” 
790 GOTO 840 

" 800 PRINT "ATERRIZASTE BIEN - ENHORABUENA" 
810 IF X-S-B>25 THEN GOTO 840 


820 PRINT "ES UNA PENA QUE NO TENGAS" >, 


“. , 630 PRINT "ENERGIA PARA ABRIR LA PUERTA" 
840 STOP re . 
1000 PRINT Ñ : E 
1010 PRINT “ESTAS A PUNTO DE EMBARCAR" ' > 
1020 PRINT "PARA UNA MISION A UN * 
. 1030 PRINT "DISTANTE PLANETA QUE NECESITA" 
1040 PRINT "URGENTEMENTE MEDICINAS. * 


1050 PRINT "PRIMERO DEBES PREPARAR LA NACE” 


1060 PRINT "PARA EL VIAJE DISTRIBUYENDO* 
1070 PRINT "LA ENERGIA A LOS MOTORES, " 
1080 PRINT "ESCUDOS Y SOPORTE DE VIDA.” 
1090 PRINT "ENTONCES DORMIRAS DURANTE EL” 
1100 PRINT "VIAJE Y AL DESPERTAR RECIBIRAS* 
1110 PRINT "UN INFORME DE LO SUCEDIDO. * 
1120 PRINT "A CONTINUACION DEBES ATERRIZAR” 
1130 PRINT "EN EL PLANETA...” 
1140 PRINT "PULSA UNA TECLA” 

aA01150 IF INKEYS$="" THEN GOTO 1150 

a0l1ó0 CLS E 
1170 RETURN o e 


Este listado funcionará en un ZX81. 
Para otros ordenadores, haz estos cambios: 


*aecambiar todos los RND a RND(1) 
15 PRINT ToDo UN NUMERO POSITIVO” 


*i17 INPUT Z » de 


[18 ZÉRND(=Z) '* . 

e10,250,470,730,1160 HOME 

410,250,470,730,1160 PRINT CHR$(147) 
"x4060 IF LEFTS(1$,1)="S" THEN GOSUB 1000 
xa0310 ON INT(RNDX4+1) GOTO 320,350,380,410 
xa0430 FOR J=1 TO 500 

01150 GET 1$ : 

41150 GET 1$:1F I$="" THEN GOTO 1150 
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Ampliación del juego 


Este juego realmente consta de dos pártes. En la primera, fijas los datos del 
viaje con el objetivo de ponerte en órbita alrededor del planeta, y en la 
segunda, intentas aterrizar en el planeta. Podrías intentar añadir una 
tercera parte en la que haga el peligroso recorrido desde el lugar de 
aterrizaje hasta el cuartel general de la Cruz Roja Intergaláctica. 


Contacto 


Este juego es diferente de los otros del libro, debido a que usa gráficos. 
Como los ordenadores varían tanto en el modo en que sus gráficos 
trabajan, hay un programa separado para cada uno. Lee las instrucciones 
de esta página para aprender a jugar y, entonces, busca en las páginas 
siguientes la versión de tu ordenador. 


Cómo jugar 


El as de los pilotos espaciales, el capitán Flash, está sentado a tu lado para 
realizar la parte final de tu examen de manejo avanzado de naves 
espaciales (parte III). Tu ligero módulo biplaza de aterrizaje se aproxima 
rápidamente a la superficie de la Luna, pero tu velocidad debe ser casi 
cero cuando toques tierra. Controla la fuerza con la tecla A para 
incrementarla y D para reducirla*, vigilando tu progreso en la pantalla 
todo el tiempo. Si usas demasiada fuerza empezarás a subir de nuevo; 
demasiado poca y harás un nuevo cráter en la Luna. ¿Podrás impresionar 
al capitán Flash con tu destreza? 


* Para el VIC y el Commodore 64, usa la flecha hacia abajo para incrementar la fuerza y la 
flecha hacia la derecha para reducirla. 


Contacto: versión para Commodore 64 


20 FRINT CHR$(147)CHR$ (5); 400 1F C=0 THEN 425 

281,0 405 POKE Y,108:POKE Y+1,123 

30 DEF FNR(X)=INT(RND(1)*X+1) FOKE Y+40,160:FPOKE Y+41,160 
40 GOSUB 250 FOKE Y+80,75:FPOKE Y+81,74 
50 GOSUE 300 GOTO 440 

GOSUB 390 FOR Z=0 TO 80 STEF 40 


:GOSUB 460 FOKE Y+Z,32:FOKE Y+Z+1,7 
=ABS (V) : GOSUB 460 NEXT 
OSUB 460 RETURN 


:GOSUB 460 FOR X=0 TO 9 
Y=AX160+X+1024 
IF X<B/10 THEN FOKE Y,102:GOTO 500 


1F X-B/10+.5 THEN POKE Y,92:GOTO 500 


D+G: F=F-T/10 
H1=H- (V+V1/10) 


E POKE Y,32 
IF H1<10 THEN 200 NEXT 
H=H1 RETURN 
IF H THEN 60 GET 1$ 
GOSUE IF 13= THEN T=T+10: 1F T>100 
GOSUE THEN T=100 
H=0 GOSUB 390 550 IF I£="B" THEN T=T-10: 1F 
GOSUE 650 T<0 THEN T=0 
END 560 IF T>F THEN T=F 
O O 570 RETURN 
V=S+ENR (10) 590 PRINT CHR+(147) 
G= (FNR (40)+40)/100 600 FOR I=1 TO 20 
RETURN FOKE 1063+FNR(506) ,42 


FOR X=1998 TO 
FOKE X,98+2%*FNR (3) 
NEXT 

FPRINT"GRAVEDAD: 
PRINT "AMFUEL: 


NEXT 
FRINT “"FERDIDO EN EL ESPACIO! !" 
RETURN 

PRINT CHR*+(147) "ATERRIZAJE" 
FPRINT "A LA VELOCIDA! 
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INT" ala EL: INT ((V+V1)+5)/10 

INT" aBBALTURA: * 670 1F (V+V1)<8 THEN PRINT 
ÉRINT “BIMBFUERZA: " “TODOS A SALVO": RETURN 
RETURN 680 PRINT "TODOS MUERTOS" 


40* INT (H/5) 


390 
400 
405 
410 
415 


420 
425 
430 
435 
440 
460 
470 
480 
Contacto: versión para VIC 20 doo 
20 PRINT CHR$(147)CHR$(5)5 500 
25 POKE 36879,8 510 
30 DEF FNR(X)=INT(RND(1)%X+1) 530 
40 GOSUB 250 540 
50 GOSUB 300 550 
60 C=1: GOSUB 390 560 
70 A=1:B=F: GOSUB 460 570 
80 =ABS(V): GOSUB 460 590 
90 A=3:B=H: GOSUB 460 600 


610 
620 
630 
640 
650 
660 
670 
680 


100 
110 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
250 
260 
270 
280 
300 
320 
330 
340 
350 
355 
360 
365 
370 


A=3; ; GOSUB 460 
GOSUB 530 
Vi=V-T/20+G6:FaF-T/10 
H1=H-(U+V1)/10 

C=0: GOSUB 530 

IF HICO THEN 200 
HsH1:VeV1 

IF H<=100 THEN 60 
GOSUB 390 
GOTO 220 
H=0:C=1; 
GOSUB 660 
END 
H=100:F=100:T=0 
V=5+FNR(10) 
G=(FNR(40)+90)/100 
RETURN 

FOR X=8178 TO 8185 
POKE X,98+2%FNR(3) 
NEXT 
PRINT "GRAVEDAD="5G 
PRINT "JIFUEL:* 
PRINT "JJIVEL:” 
PRINT *JJJALTURA:* 
PRINT "JJJFUERZA: 
RETURN 


GOSUB 390 


Y=8137-22*INT(H/5) 

IF C=0 THEN 425 

POKE Y,108: POKE Y+1,123 

POKE Y+22,160: POKE Y+23,160 

POKE Y+44,75: POKE Y+45,74 

GOTO 440 

FOR 2=0 TO 44 STEP 22 

POKE Y+Z,32: POKE Y+Z+1,32 

NEXT 

RETURN 

FOR x=0 TO 9 

Y=AXB8+X+7724 

IF X<B/10 THEN POKE Y,102: GOTO 500 
IF X<B/10+.5 THEN POKE Y,92: GOTO 500 
POKE Y,32 

NEXT 

RETURN 

GET 15 

IF 1$=")*" THEN T=T+4; 
IF 16="9* THEN TeT-4; 
IF T>F THEN TF 
RETURN 

PRINT CHR$(147) 

FOR 1=1 TO 20 

POKE 7679+FNR(506),42 
NEXT 
PRINT 
RETURN 
PRINT CHR$(147) "ATERRIZAJE" 

PRINT "A LA VELOCIDAD"; INT((V+V1)*5)/10 

IF (V+V1)<8 THEN PRINT "TODOS A SALVO"; RETURN 
PRINT "TODOS MUERTOS”: RETURN 


IF T>100 THEN T=100 
IF T<O THEN T=0 


"PERDIDOS EN EL ESPACIO! !* 


J es la tecla de cursor hacia abajo. 


1) es la tecla de cursor hacia la derecha. 
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Contacto: versión para ZX81 


20 CLS 

30 LET Bs="(66666666666666666666]* 

40 GOSUB 250 

50 GOSUB 300 

60 LET C=1 

65 GOSUB 390 

70 LET Azj 

75 LET BsF 

77 GOSUB 460 

80 LET A=2 

85 LET BRABS(V) 

87 GOSUB 460 

90 LET Au3 

95 LET BaH 

97 GOSUB 460 

100 LET A=4 

105 LET B=T 

107 GOSUB 460 

110 GOSUB 530 

120 LET Vi=Y-T/20+G 

125 LET F=F-T/10 

130 LET Hi=H-(V+V1)/10 

140 LET C=0 510 RETURN 

145 GOSUB 390 530 LET I$=INKEYS 

150 IF HI<O THEN GOTO 200 540 IF 1$="A* THEN LET T=T+49 

160 LET H=H1 545 IF T>100 THEN LET T=100 

165 LET V=V1 550 IF 1$="D” THEN LET T=T-4 

170 IF H(=100 THEN GOTO 60 555 IF T<O THEN LET T= 

180 GOSUB 590 560 IF T>F THEN LET T=F 

190 GOTO 220 570 RETURN 

200 LET H=0 590 CLS 

205 LET C=l 600 FOR I=1 TO 20 

207 GOSUB 390 610 PRINT AT INT(RNDI22), INT(RNDF32)1"%" 
210 GOSUB 660 620 NEXT 1 

220 STOP 630 PRINT AT 10,10/"PERDIDOS EN EL ESPACIO" 
250 LET H=100 640 RETURN 

252 LET F=100 650 CLS 

255 LET T=0 660 PRINT AT 20,04"ATERRIZAJE A VELOCIDAD *1 
260 LET V=5+INT(RNDF10+1) INT((VeV1)45)/10 

270 LET G=INT(RNDF40+40)/100 670 IF (V+V1)<8 THEN PRINT "A SALVO” 
280 RETURN 673 IF (V+V1)>=8 THEN PRINT "TODOS MUERTOS" 
300 PRINT AT 21,203"CSDADSADAS)” 680 RETURN 

340 PRINT AT 0,0;*GRAVEDAD"¡6 

350 PRINT AT 3,0;*"FUEL:* 

355 PRINT AT 7,0;*"VEL:* 

360 PRINT AT 11,0;"ALTURA: * 

365 PRINT AT 15,01 "FUERZA: Nota especial para 

370 RETURN . 

290 LET Y=(100-H)/6+1 los usuarios del ZX81 

400 IF C=0 THEN GOTO 425 

405 PRINT AT Y,24;"(34]* Los caracteres gráficos se muestran 
410 PRINT AT Y+1,233"[9 W)" en el listado usando la siguiente 

415 PRINT AT Y+2,23;*[TGGY)* convención: un T' significa que se pulsa 
420 GOTO 440 e la tecla GRAPHICS, seguida de las 
425 PRINT AT Y,24; . ó letras y números a la vez que la tecla 
430 PRINT AT Y+1,231 ¿ > SHIFT, hasta que aparece “J; en ese 
435 nd di momento hay que pulsar la tecla 
AR GRAPHICS de nuevo, para volver al 
370 PRINT AT Y,05" modo normal: 

480 PRINT AT Y,O¡BS(TO B/5) 


Contacto: versión para ZX Spectrum 


20 CLS 

30 DEF FNR(X)=INT(RNDFX+1) 
40 GOSUB 250 
50 GOSUB 300 
60 LET Cs0; 
70 LET Axl; 
75 GOSUB 460 
80 LET A=2; LET B=ABS V; LET C=4*(V<0) 
85 GOSUB 460 

90 LET A=3: LET B=H; LET C=2*(H<25) 
95 GOSUB 460 


GOSUB 390 


LET B=F; LET C=2*(F<25) 


100 LET A=4; LET B=T: LET C=0 
105 GOSUB 460 

110 GOSUB 530 

120 LET Vi=V-T/20+G: LET F=F-T/10 


130 LET Hi=H-(V+V1)/10 

140 LET C=1: GOSUB 390 
150 IF H1<O THEN GOTO 200 
160 LET H=H1; LET V=V1 

170 IF H<=100 THEN GOTO 60 
180 GOSUB 590 
190 GOTO 220 
200 LET H=0: 
210 GOSUB 650 
220 STOP 

250 LET H=100: LET F=100: LET T=0 
260 LET V=S+FNR(10) 

270 LET G=(FNR(40)+40)/100 

280 RETURN 

300 PLOT 180,8 

310 FOR X=l TO 15 

320 DRAW 5,FNR(3)-2 

330 NEXT X 

340 PRINT "GRAVEDAD="¡G 

350 PRINT ***FUEL:*''''*VEL:" 

360 PRINT '*'*ALTURA:***'' *FUERZA:; * 
370 RETURN 
390 INVERSE C 
400 LET Y=H*1.3+10 

410 PLOT 200,Y: DRAW 34,0 


LET C=0; GOSUB 390 


420 
430 
440 
460 
470 
480 
490 
500 
510 
530 
540 


550 


560 
570 
590 
600 
610 
620 
630 
640 
650 


660 
670 
680 


DRAW -4,20: DRAW -13,10 

DRAW -13,-10: DRAW -4,-20 
RETURN 

LET Y=172-A432 

INK C 

PLOT 0,Y 

DRAW B,0 

DRAW INVERSE 1,100-B,0 
RETURN 

LET 18=INKEYS 

IF 18="A" THEN LET T=T+49; 

IF T>100 THEN LET T=100 

IF 18="D*" THEN LET T=T-4: 

IF T<O THEN LET T=0 

IF T)F THEN LET TeF 

RETURN 

cLs 

FOR I=1 TO 20 

PRINT AT FNR(21),FNR(31)1*%%" 
NEXT 1 

PRINT "PERDIDOS EN EL ESPACIO!!* 
RETURN 

PRINT AT 0,0; "VELOCIDAD DE CONTACTO *; 
INT (V+V1)45)/10* 

IF (V+V1)<8 THEN GOTO 680 
PRINT "TODOS MUERTOS": RETURN 
PRINT "TODOS A SALVO": RETURN 


Contacto: versión para MSX 


5 PRINT "INTRODUCE UN NUMERO POSITIVO" 600 PRINT "PERDIDOS EN EL ESPACIO” 


7? INPUT Z 610 END 

8 ZÑRND(-Z) 660 SCREEN O 

10 CLS 670 CLS 

20 SCREEN 2,1 680 PRINT "ATERRIZAJE A VELOCIDAD="; 
30 DEF FNR(X)=INT(RND(1)%X+1) INT((V+V1)%5)/10 

40 As="" 690 IF (V+V1)<8 THEN 710 

50 FOR I=1 TO 8 700 PRINT "TODOS MUERTOS”: END 

60 READ A 710 PRINT "TODOS A SALVO": END 

70 AS=AS+CHRE(A) 

80 NEXT 1 


90 SPRITES(1)=A8 
100 GOSUB 300 

120 GOSUB 350 

130 PUT SPRITE 1,(124, (100-H)41.3),15 

150 GOSUB 530 

VI=V-T/20+G:FaF-T/10 

Hi=H-(V+V1)/10 

IF HICO THFM GOTO 660 

HaH1:VaVL 

IF<=100 THEN GOTO 130 

GOTO 590 

END 

DATA 60,126,255,255,255,66,66,23 
H=100:F=300:T=0 

VaS+FNR(10) 

Om (FNR(40)+40)/100 

RETURN 

X0=0:Y0=155 

FOR X=0 TO 255 STEP 5 

XN=X; YN=159-FNR (10) 

LINE (X0,YO)-(XN, YN) 

XO=XN: YO=YN 

NEXT Xx 

FOR 1=1 TO 30:PSET(FNR(255),FNR(150)),15 
NEXT 1 

RETURN 

18=INKEYS 

IF I8="A* THEN T=T+4:1F T>100 THEN T=100 
IF IS="D" THEN T=T-9:1F T(O THEN T=0 

IF T)F THEN T=F 

570 RETURN 
SCREEN 0: CLS 


Contacto: versión para Apple 


¡BS (V): GOSUB 460 
GOSUB 460 
GOSUB 460 
GOSUB 530 
Vi=V-T/20+6:F=F-T/10 
Hi=H-(V+V1)/10 
C=0: GOSUB 390 

IF HICO THEN 200 
H=H1:V=V1 

IF H<=100 THEN 60 
GOSUB 590 

GOTO 220 

H=0:C=3: GOSUB 390 
GOSUB 660 

END 
H=100:F=100:T=0 

Va 3S+FNR(10) 

Ga (FNR(40)+40)/100 
RETURN 

HCOLOR=3 

HPLOT 0,155 


310 FOR X=0 TO 279 STEP 5 

320 HPLOT TO X,159-FNR(10) 

330 NEXT 

335 FOR I=1 TO 30: HPLOT FNR(279),FNR(150) 

337 NEXT 

340 VTAB 21: PRINT TAB(34);*" ¡6 

350 VTAB 21: PRINT "FUEL:*": PRINT "VEL:" 

360 PRINT "ALTURA:*: PRINT "FUERZA: *; 

370 RETURN 

390 HCOLOR=C 

400 Y=(100-H)*1.3 

410 HPLOT 140,Y TO 120,Y+10 

420 HPLOT TO 120,Y+20: HPLOT TO 160,Y+20 

430 HPLOT TO 160,Y+10: HPLOT TO 140,Y 

435 HPLOT 155,Y+20 TO 160,Y+25 

437 HPLOT 125,Y+20 TO 120,Y+25 

440 RETURN 

460 VTAB(20+A): HTAB 8 

470 INVERSE 

480 PRINT SPC(B/4); 

490 NORMAL 

500 PRINT SPC(26-B/4)1 

510 RETURN 

530 1$= IF PEEK(-16384))27 THEN GET 18 

540 IF I82"A" THEN T=T+4; IF T)100 THEN T=100 

550 IF I$="D" THEN T=T-4; IF T(0 THEN T=0 

560 IF T>F THEN T=F 

570 RETURN 

590 HOME : VTAB 23 

600 PRINT "PERDIDO EN EL ESPACIO!!" 

640 RETURN 

660 HOME : VTAB 22 

670 PRINT "ATERRIZAJE A VELOCIDAD *; 
INT((V+V1)+5)/10 

680 IF (V+V1)<8 THEN 700 

690 PRINT "TODOS MUERTOS”: RETURN 

700 PRINT "A SALVO": RETURN 


Cómo ampliar los programas 


Aquí damos algunas ideas que 
puedes añadir a los programas que 
incluimos en este libro o a tus 
propios programas. En muchos 
casos no podrás añadirlos al ZX81 
con 1 K de memoria, ya que los 
juegos ocupan casi todo el espacio 
disponible. 

Recuerda también que tendrás 
que limitar tus añadidos según los 
números de líneas disponibles en el 
programa o, de otro modo, tendrás 
que renumerarlo todo. Si decides 
renumerarlo, ten cuidado al 
cambiar todas las líneas GOTO y 
GOSUB. 


Cómo hacer que el ordenador 
te diga cómo tienes que jugar 


Puedes añadir una 
sección a cualquier 
programa para que el 
ordenador imprima 
las instrucciones del 
juego. El método más 
fácil para hacer esto (WU) Y 

es añadir algunas líneas, como las que 
damos a continuación, al comienzo del 
programa, y después poner una 
subrutina al final. 


10 PRINT "TITULO DEL JUEGO” 
11 PRINT "QUIERES SABER COMO* 
12 PRINT *SE JUEGA?" 

15 INPUT 18 


M1? 1F 18(1)="S* THEN GOSUB 1000 
*Xa01? 1F LEFTS(18,1)="S" THEN GOSUB 1000 
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El programa principal queda así: 


1000 PRINT "LO QUE TIENES QUE" 

1010 PRINT "HACER ES ...* 

1999 RETURN 

Puedes añadir tantas sentencias de 
impresión como quieras para las 
instrucciones, pero recuerda poner un 
número y la palabra PRINT al 
comienzo de cada una. Limita la 
longitud de la frase que va entre 
comillas al número de caracteres que 
tu ordenador pueda imprimir en una 
línea. No olvides poner una línea 
RETURN al final o el programa no 
funcionará. 


Cómo hacer que el 
ordenador se pare 
y espere 


Si tus instrucciones son demasiado 
largas, debes insertar esta subrutina 
para que el programa se pare en un 
punto determinado, hasta que tú 
pulses una tecla. Esto te permite parar 
las instrucciones cuando van a 
desaparecer por la parte superior de la 
pantalla. Pon una línea GOSUB en el 
sitio que quieres que se pare el 
programa y esta subrutina al final: 


1000 PRINT *PULSA UNA TECLA PARA CONTINUAR "| 


1010 IF INKEYS="" THEN GOTO 1010 


Ai 
1010 GET 1$ 


ALOLO GET 18:1F 18="" THEN GOTO 1010 
1020 PRINT 
1030 RETURN 


Cómo hacer que el ordenador 
te hable 


Puedes hacer que el ordenador te 
haga preguntas y reaccione a tus 
respuestas. Por ejemplo, estas líneas 
harán que el ordenador rehúse jugar 
contigo a menos que tu nombre 
comience por d: 


1 PRINT "CUAL ES TU NOMBRE?" 

2 INPUT 18 

3 IF I8(1)<>"J" THEN GOTO 1000 

3 IF LEFTS(18,1)<>"J" THEN GOTO 1000 
4 PRINT “DE ACUERDO, PUEDES JUGAR* 
5 PRINT "ESTAS LISTO?" 
6 INPUT J6 


M4? 1F 36(1)(>*S* THEN GOTO 5 
*xA07 IF LEFTS(IS,1)()*S" THEN GOTO 5 


El programa principal queda así: 


1000 PRINT "LO SIENTO, ESTE JUEGO ES” 
1010 PRINT "SOLO PARA LA GENTE* 

1020 PRINT "CUYOS NOMBRES EMPIEZAN" 
1030 PRINT *CON J* 


LO SIENTO 
[BO JUGAMOS 


En este otro ejemplo, te desafía a ser 
lo suficientemente valiente como para 
atreverte a jugar. 


PRINT "JUEGO MUY PELIGROSO" 

12 PRINT "ERES LO BASTANTE VALIENTE" 
14 PRINT "PARA PEGAR AL MONSTRUO" 
15 PRINT "DE LOS PELOS VERDES?" 

16 INPUT 18 


ML? 1F 15(1)="S* THEN GOTO 20 
*AOQ!? IF LEFTS(18,1)=*S" THEN GOTO 20 


18 PRINT "COBARDICA" 
19 STOP 


Puedes combinar este listado con la 
subrutina de instrucciones, tomando 
las líneas 11 a 17 de la sección de 
instrucciones que damos en esta 
página y poniéndolas en las líneas 20 a 
26 de este programa. Puedes 
comenzar el programa principal en la 
línea 30 y añadir la subrutina de 
instrucciones al final. 


¿Quieres otra oportunidad? 


En lugar de teclear RUN cada vez que 
quieras jugar de nuevo, puedes hacer 
que el ordenador te pregunte si deseas 
jugar de nuevo. Pon estas líneas al 
final del programa, justo antes de la 
última sentencia STOP: 


1606 PRINT 'QUIERES JUGAR OTRA VEZ?* 
1618 INPUT 18 


Má 1020 1F 18(1)="S" THEN RUN 
*A01020 1F LEFTS(15,11="S* THEN RUN 


1638 PRINT *DE ACUERDO, ADIOS" 
1648 STOP 


Cambia los números 
de línea de acuerdo 
con tu programa. 


Cómo producir efectos 
de sonido 


El VIC 20, el ZX Spectrum, los MSX y 
los Apple II permiten producir sonidos; 
puedes añadir líneas a tus programas 
para producirlos en los lugares 
apropiados. Podrás añadir, por 
ejemplo, una explosión o una pequeña 
melodía que suene si tú eres el 
ganador. Cada ordenador necesita 
diferentes instrucciones para producir 
sonidos, de modo que lo mejor es que 


consultes tu manual. En casos bastará 
añadir una línea al programa en el 
lugar en que tú quieras que suene. En 
otros, necesita diversas líneas y será 
mejor ponerlas como una subrutina. 
En la parte de atrás del manual del 
VIC, encontrarás algunas subrutinas 
muy útiles para hacer sonidos como 
“disparo de láser”, “explosión” y 
“alerta roja”. Pon una línea GOSUB 
donde quieras que aparezca el sonido, 
numera la subrutina y añade un 


RETURN al final de ella. 


Nota para ordenadores MSX 


Debido al especial sistema de generar 
números aleatorios que tienen los 
ordenadores MSX, es necesario que 
todos los programas para estas 
máquinas que utilicen la función 
RND(1) incluyan esta pequeña 
subrutina al principio: 


10 PRINT “INTRODUCE UN NUMERO 
POSITIVO” 

20 INPUT Z 

30 Z=RND(-Z) 


Debiéndose ejecutar antes que 
cualquier RND(1). Esto hace que el 
generador se inicialice generando una 
secuencia distinta, ya que si no se 
ponen estas líneas, siempre que 
ejecutemos el programa sacará la 
misma secuencia. El número que pedirá 
debe ser cualquiera superior a cero. 


Nota especial para los 
usuarios del Spectrum 


Si tienes un ZX Spectrum, 
encontrarás que algunos de los 
juegos de este libro funcionan 
demasiado rápido. Encontrarás al 
lado del programa un recuadro 
conteniendo las instrucciones para 
cambiar la velocidad. 

Recuerda que para disminuir la 
velocidad del juego tienes que 
utilizar un número más alto. 
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Cómo escribir tus propios programas 


A medida que practiques con los 
juegos de este libro, 
probablemente querrás más y más 
cambios en ellos y, lógicamente, 
pensarás escribir nuevos juegos de 
tu propia cosecha. En estas dos 
páginas encontrarás algunas 
indicaciones sobre cómo hacerlo. 


Antes de que empieces, es una 
buena idea pensar sobre lo que tu 
ordenador puede o no puede hacer. 


el la >> 


* Puede tomar decisiones comparando 
los elementos de información de varios 


* Puede darte los resultados de sus 
cálculos y decisiones y también lo que 
38 está almacenado en su memoria. 


* Puede seleccionar números 
aleatoriamente utilizando RND. 


* No puede hacer nada si no se lo 
dices tú. 


* Suponiendo que utilices su lenguaje 
correctamente, puede hacer 
exactamente sólo lo que le digas, 
incluso si es una estupidez. 


Recuerda, cuando estés planeando 
un juego, no incluir nada que tu 
ordenador no pueda hacer. 


Cómo planear un juego 


de que le digas al ordenador en 
é consiste tu juego, debes saber 
tamente cómo jugar y cuáles son 
las reglas. El ordenador necesitará un 
conjunto de sencillas instrucciones 
lógicas, de modo que haz funcionar el 
juego en tu cabeza o en un papel 
primero y divídelo en pasos simples. 
A continuación, escribe un esquema 
(en español, no uses BASIC aún) de 
todas las etapas del juego en orden. 
Aquí incluimos un esquema para un 
simple juego de disparar, cómo 
disparar balas de cañón a la nave 
pirata o disparar rayos láser a un 


invasor alienígena, para darte una idea. 


PLAN 


1) IMPRIMIR TÍTULOS E 
INSTRUCCIONES. 


2) ELEGIR UN OBJETIVO 
PARA ESTE JUEGO. 


3) EMPEZAR UN BUCLE QUE 
LE DA AL JUGADOR N 
INTENTOS. 


4) ESPERAR A QUE EL 
JUGADOR DISPARE. 


5) MIRAR SI EL TIRO DA EN 
EL BLANCO. 


6) IMPRIMIR UN MENSAJE 
DEPENDIENDO DE LA 
PUNTERIA. 


7) VOLVER POR OTRO 
INTENTO, SI NO TUVO 
ÉXITO. 


Escritura del programa 


La próxima etapa es traducir tu 
esquema a BASIC. Cada paso de tu 
esquema puede necesitar varias líneas 
en BASIC. No olvides dejar espacios 
cuando numeres las líneas del 
programa; así podrás volver atrás y 
añadir más si lo necesitas. 

Haz primero un boceto del 
programa en un papel y después 
comienza a comprobar en el 
ordenador. Él descubrirá los errores 
con mayor rapidez y puede darte una 
pista sobre dónde está equivado el 
programa. Evitar o localizar errores en 
un programa es difícil incluso para 
expertos: no esperes que tus 


Una vez que hayas puesto en 
funcionamiento el meollo del 
programa, puedes añadir marcadores, 
comentarios extras, más objetivos, etc. 
Podrás incorporar secciones de los 
programas de este libro a tus juegos. 

No esperes escribir juegos 
excitantes y originales rápidamente. 
Mantén tus ideas sencillas y prepárate 
para adaptarlas según vayas 
escribiendo el programa. Puedes 
descubrir que has incluido algo en tu 
juego que es fácil de hacer para los 
humanos, pero muy difícil para un 
ordenador. Cuando tengas más 
experiencia, sabrás instintivamente qué 
es lo que tu ordenador puede hacer y 
la manera más fácil de escribir el 
programa. 39 


Sumario del BASIC 


Esta sección te da algunas de las instrucciones frecuentes en BASIC, 
describe qué es lo que le hacen hacer al ordenador y cómo son usadas. 
Muchas de ellas han sido utilizadas en los programas de este libro, de 
modo que puedes volver atrás y comprobar cómo funcionan en un juego; 
pero no todas pueden ser usadas en todos los ordenadores mencionados 
aquí. La tabla de conversión de la página 46 muestra cuáles pueden ser 
utilizadas en su lugar. 


LET le dice al ordenador que reserve una sección de 
su memoria y ponga un valor particular en ella; por 
ejemplo, LET A=6 significa reserva una sección de 
memoria “A” y pon el valor 6 en ella. A “A” se la 
llama “variable” y poner algo en ella se llama “asignar 
un valor a una variable”. 

El nombre de algunas variables está seguido por 
un signo dólar; por ejemplo, A$. Esto significa que 
son “cadenas alfanuméricas”, que pueden contener 
varios caracteres, incluyendo letras, números y 
símbolos. 


PRINT dice al ordenador que muestre cosas en la 
pantalla, y lo puedes utilizar así: 

Un mensaje encerrado entre comillas con PRINT 
delante de él, aparecerá en la pantalla tal como tú lo 
tecleaste. El trozo entre comillas no hace falta que 
esté en BASIC, puede ser lo que quieras. PRINT 
seguido del nombre de una variable, por ejemplo, 
PRINT A o PRINT AS, le dice al ordenador que 
muestre el contenido de la variable en la pantalla. 

PRINT puede también hacer cálculos y mostrar los 
resultados; por ejemplo, PRINT 6+4 hará que el 
ordenador muestre 24, 

Puedes usar PRINT, sin nada más, para dejar una 
línea en blanco. 


RND dice al ordenador que elija un número 
aleatoriamente. Diferentes ordenadores utilizan 
diferentes formas de RND y puedes verlas en la tabla 
de conversión de caracteres de la página 46. En los 
ordenadores Sinclair, RND, sin nada más, produce 
un número entre 0 y 0,99999999. Puedes variar los 
límites del número que quieres que genere, 
multiplicando RND y añadiéndole otro. Por ejemplo, 
RND+=20 produce un número entre O y 19,99999999, 
mientras que RNDx*20+1 produce un número entre 1 
y 20,99999999. 

Ver INT para saber cómo producir sólo números 
enteros. 

Ver CHR$ para saber cómo producir letras y otros 
caracteres del teclado aleatoriamente. 


ivos, le dice al ordenador que ignore 
o que está a la derecha del punto decimal; por 
o, INT(20,999) es 20. Para números negativos 
e ignore todo lo que esté a la derecha del punto 
imal e “incremente” el número a la izquierda por 
uno; por ejemplo, INT(-3,6) es -4. 

El INT es bastante usado con RND, como 
INT(RND=20+1) que le dice al ordenador que quieres 
elegir un número entre 1 y 20. 


CHR$ convierte números en letras. Excepto el 
ZX81, todos los ordenadores de este libro utilizan el 
juego de caracteres ASCII* del teclado en el que 
cada carácter se corresponde a un número fijo. Por 
ejemplo, la letra A tiene el código numérico 65 y 
PRINT CHR$(65) mostrará una A en la pantalla. 
Puedes usar CHR$ con INT y RND para hacer 
que el ordenador seleccione letras aleatoriamente, 
por ejemplo: 
CHRS(INT(RND+26+65)) 
Esta línea producirá letras aleatoriamente en un ZX 
Spectrum (ver tabla de conversión para otros 
ordenadores). 


FOR es usado para comenzar un “bucle” que hará 
que el ordenador repita una parte del programa un 
número fijo de veces. Debe ir seguido de una 
variable (como, por ejemplo, G, para ver el número 
de intentos que permite el juego) y se debe dar un 
valor inicial y un valor final a la variable. 

El fin del bucle está marcado por una línea NEXT 
(NEXT G, en este ejemplo), que incrementa el valor 
de la variable en 1 cada vez y, entonces, envía al 
ordenador de vuelta a la línea FOR de nuevo. 
Cuando la variable alcanza el valor final, el 
ordenador ignora la línea NEXT y ejecuta la línea 
siguiente. Todos los FOR deben tener un NEXT o se 
producirá un error. 


INPUT reserva un espacio en la memoria del 
ordenador, imprime una interrogación y espera a que 
teclees alguna cosa, que pondrá en ese espacio de 
memoria. No podrá seguir ejecutando el resto del 
programa hasta que pulses RETURN o ENTER. 

Puedes usar variables numéricas o alfanuméricas 
con INPUT, pero si usas una variable numérica el 
ordenador no aceptará que teclees letras. 


* American Standar Code for Information Interchange (Código Americano Estándar para Intercambio 
de Información). 


INKEYS comprueba el teclado para ver si una tecla 
ha sido pulsada y cuál es. No espera a que pulses 
una tecla, como hace el INPUT. Esta instrucción se 
usa normalmente en un bucle en el que el ordenador 
mira el teclado varias veces. Esto es debido a que los 
ordenadores funcionan tan rápido, que no tendrías 
oportunidad de pulsar una tecla en el tiempo que 
tarda el ordenador en hacer una comprobación. 

Si no has pulsado una tecla antes de que el bucle 
finalice, el ordenador seguirá con una cadena que no 
contiene nada (llamada una cadena “nula”). 

Nota: El Apple y el VIC no utilizan INKEY$. 


GET es usada en lugar de INKEY$ en el VIC 20. 


GOTO hace que el ordenador salte hacia arriba o 
abajo del programa ignorando las líneas de en medio. 
Debes poner el número de la línea a la que quieres 
saltar después de la instrucción GOTO. 


GOSUB le dice al ordenador que deje el programa 
principal y vaya a la subrutina. GOSUB debe ir 
seguido del número de la primera línea de una 
subrutina. Al final de la subrutina debes tener una 
línea RETURN. Ésta envía al ordenador de vuelta al 
programa principal, a la línea que sigue 
inmediatamente después a la línea GOSUB. Un 
GOSUB sin un RETURN en un programa dará un 


error. 


IF... THEN dice al ordenador que decida si una 
expresión es verdadera o falsa y que haga diferentes 
cosas, dependiendo de la respuesta. Es usada con 
AND u OR y también con los siguientes signos: 


= igual que 
< menor que 
> mayor que 
<= menor o igual que 
>= mayor o igual que 
<> distinto de 


Si el ordenador decide que una expresión es 
verdadera, realiza la acción de la instrucción que 
sigue al THEN. Si decide que es falsa, entonces 
ignora el resto de la línea y va a la siguiente. 


CLS se usa para borrar cualquier cosa que esté en 
la pantalla, sin borrar o cambiar lo que esté en 
noria. Es útil para quitar el listado de la pantalla 
ejecutar el programa o, en juegos, cuando quieres 
e el jugador reaccione al ver algunas cosas en un 
mpo limitado. (Nota: El Apple y el VIC no utilizan 
CLS —ver tabla de conversión.) 


HOME es usada por los ordenadores Apple en lugar 
de CLS para limpiar la pantalla. 


ABS ignora los signos más y menos delante de los 
números y toma sus valores “absolutos”. Por 
ejemplo, ABS (-10) es 10 y ABS (+10) es también 10. 


VAL toma el valor numérico de números escritos 
como cadenas alfanuméricas. En efecto, le dice al 
ordenador que ignore el signo dólar y trate a la 
cadena como una variable numérica normal. 
ejemplo, si 1$=60”, entonces VAL(IS) es el 
número 60. 


ASC convierte un carácter en su código ASCII; por 
ejemplo, ASC(“3”) da 51. La expresión entre 
paréntesis debe ser una cadena, por ejemplo, 
ASC(AS) o ASC(“20”). 

Nota: el ZX81 y el ZX Spectrum no utilizan ASC, 
aunque el Spectrum utiliza el código ASCII. 


CODE es usada por el ZX81 y Spectrum en lugar de 
ASC. Al igual que ASC, debe estar seguido por una 
cadena. Recuerda que el ZX81 utiliza números de 
código diferentes de los de los demás ordenadores. 


TAB mueve el cursor por la pantalla al número de 
columna que se le indique. Es usado normalmente 
con PRINT para mostrar algunas cosas en medio de 
la pantalla. El número de espacios que quieres que el 
cursor se mueva se pone entre paréntesis después 
de TAB. El número máximo que puedes usar 
depende de la anchura de la pantalla de tu ordenador. 


SGN dice al ordenador que encuentre el signo de un 
número. Produce -1 para un número negativo, 0 
para cero y +1 para números positivos. Por ejemplo, 
SGN(-30) es -1, SGN(7) es +1 y SGN(0) es 0. 


DIM dice al ordenador el espacio de memoria que 
será necesario para una “matriz” (una columna o una 
cuadrícula). Por ejemplo, DIM X(6) dice al ordenador 
que reserve un área suficientemente grande para 
contener una fila de 6 elementos, llamada X. DIM 
A(8,8) significa un espacio de memoria llamado A y 
lo suficientemente grande como para contener 8 
elementos a lo largo y 8 hacia abajo. El número de 
elementos de datos usado en el programa debe 
corresponder al número de paréntesis después de 
DIM, o producirá un error. 


SQR hace raíces cuadradas de números. Por 
ejemplo, SQR(16) da como resultado 4. 


SIN calcula el seno de un ángulo. En un triángulo 
rectángulo, la longitud del lado opuesto a un ángulo, 
dividida por la longitud de la hipotenusa (el lado 
opuesto al ángulo recto) es el seno del ángulo. 
Cuando utilices SIN en un programa, el ángulo que 
estés usando debe estar medido en radianes, no en 
grados. 


ATN es una abreviatura de arcotangente y es 
importante recordar que da la respuesta en radianes, 
no en grados. Necesitarás usar un libro de 
matemáticas para averiguar en qué consiste, si 
todavía no lo sabes. 


STOP dice al ordenador que no siga ejecutando el 
programa. Todos los ordenadores, excepto el ZX81 y 
el ZX Spectrum pueden utilizar END en su lugar. 


PEEK es un método para averiguar qué hay en un 
área específica de la memoria del ordenador. 
Necesitas usarlo con un número que especifique la 
“dirección” de la memoria. 


POKE es un método especial para poner 
información en la memoria del ordenador usando una 
“dirección” de la memoria. 


Tabla ASCII Tabla de códigos del ZX81 


| Número | Carácter | Número | Carácter Número | Carácter | Número | Carácter 
de código | ASCIL— | decódigo | ASCII de código | del ZX81 | de código | del ZX8l 
32 | espacio | 62 > 1 5 41 ¡D 
Ea 63 |? 2 fe 42 E 
su | [e Je so |s | E 
35 * |6s A 14 |: 44 Gá. 
36 $ 66 B 15 ? 45 H 
31 1% le Cc 16 cols 1 
38 80 68 D 1 ol) |a J 
39 » 69 E 18 > 488  |K 
sw 0 | [E m9 |<—|w—|L 
41 Jo |71 G— 20. E 50 Mm 
42 | H 21 + 51 N 
43 + 73 | — 2 |-  |52 lo) 
4 |?” 74 | J 23 3 53 P 
45 = 75 K 24 / 54 Q 
46 . 76 L 25 |; 55 R 
47 / 77 M 26 E 56 Ss 
48 0 78 N 27 57 T 
49 1 79 Lo) 28 0 58 U 
50 2 80 P 29 1 59 Y 
51 3 sn |Q 30 2  |60 w 
52 4 822 |R 31 3 61 x 
53 5 83 E 32 4 62 Y 
54 6 84 T 33 O z 
55 7 85 u_ 34 6 ES 
56 8 86 vV 35 7 
57 9 87 W_ 36 8 a 
EN 8 |X_ 37 9 
AÑ 89 bs 38 A M 
<  [|ow  |z 39 B 6 
= 40 el 


Tabla de tamaños de pantalla 


Máximo número de Máximo número de 
caracteres a lo ancho líneas de altura 
(o número de columnas) (o número de líneas) 
VIC 20 22 — 23 
ZX81 ' 32 22 
ZX Spectrum 32 22 a 
Apple 40 24 
MSX 40 o 24 
Commodore 64 40 24 


Tabla de conversión 


Esta guía de referencia muestra algunas de las variaciones del BASIC usadas por las máquinas empleadas en este 
libro. No incluye instrucciones de gráficos, sonido o color, porque éstos varían enormemente de una máquina a otra. 
Fíjate que, aunque todos los ordenadores tienen PEEK y POKE, no usan el mismo sistema de direcciones de 
memoria, de modo que los números usados con PEEK y POKE deben cambiarse para cada ordenador. 


MSX VIC/C64 Apple ZX Spectrum 

crea un número 
aleatorio entre 0 RND(1) RND(D) RND() RND RND 
y 0.99999999 
Crea un número 
aleatorio entre 1 RND(1)*N+1 RND(1)*N+1 RND(1)*N+1 RND*N+1 RND*N+1 
yN a AA Al E Ñ 
Crea una letra ye. y. 
aleatoria entre AyZ CHRY(INT(RND(1)*26+65)) CHRHINT(RND(1)*26+65)) CHRHINT(RND(1)*26+65)) CHR$(INT(RND*26+65)) | CHRNINTANDe258) 
borra la pantalla CLS > PRINT CHR$(147) HOME CLS e CLS — — 
mira si se ha X$-" " IF PEEK(-16384) 
pulsado una tecla pp as > 127 THEN GET X$ INEYS ] ud 
convierte caracteres ASC("X”) ASC(“X”) ASC(X”) CODE(“X”) CODE(*X”) 
en códigos - (cód. ASCII) (cód. ASCII) (cód. ASCII) (cód. ASCII) _(cód. 2X81) 
mover cursor hacia arriba PRINT CHR$(30) _ PRINT CHR$(145) CALL:998 y 7 PRINT CHR$(11) | PRINT CHRÁ 12) _ 
mover cursor hacia abajo PRINT CHRS(31) PRINT CHR$(17) PRINT CHR$(10) — | PRINT CHR$(10) PRINT CHR(113) 
mover cursor hacia la izquierda PRINT CHRS(29) PRINT CHR$(157) PRINT CHR$8) | PRINT CHR$(8) PRINT CHRX(114) 
mover cursor hacia la derecha | PRINT CHR$(28) PRINT CHR$(29) PRINT CHR$K21) PRINT CHRA9) PRINT CHRG(115) 
coge los primeros N 

dares de tina cadeña LEFTHAS,N) i LEFTAAS,N) LEFTHASN) Ñ AL TON) | AS(1 TO N) 
coge los últimos N 
caracteres de una cadena RIGA RIGHTHASN) RIGHTHARIN ASIN TO) ASIN TO) 
coge los N caracteres de 
en medio de una cadena MID%AS,N1,N2) MIDS(AS,N1,N2) MIDH(A$,N1,N2) ASKN1 TO N2) AH(N1 TO N2) 
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Claves 


Encontrarás que tus respuestas a 
algunos de los “Rincones de los 
problemas” son diferentes a las 
incluidas aquí. Si funcionan en tu 
ordenador, son válidas; pero 
comprueba si son tan claras y 
sencillas como las de este libro. 


Página 5 
Despegue espacial 


Las líneas 30 y 40 seleccionan los 
números que determinan qué fuerza es 
necesaria. Para incrementar el rango 
de fuerzas posibles, puedes 
incrementar el 20 en la línea 30 o el 40 
en la línea 40, o ambos números. Esto, 
obviamente, hará el juego más difícil. 


Página 7 
Juegos intergalácticos 


Cambia las líneas 220 y 230 por las 
siguientes: 

222 LET B=B+*INT(1000/8) 

230 GOTO 20 

y añade una nueva línea 15: 

15 LET Bso 


Página 9 
El malvado extraterrestre 


Cambia las líneas 20 y 30 y añade una 
nueva línea 25, como sigue: 


20 PRINT "DIFICULTAD? (6-30)* 
25 INPUT S 
30 LET 6=INT(S/3) 


Página 11 
Golpea los ojos de la oruga 


Para hacer que las orugas aparezcan 
en más de 4 sitios en la pantalla, tienes 
que poner un número mayor que 4 en 
la mitad de la línea 70, cambiar la línea 
80 y añadir más subrutinas al final del 
programa (una por cada posición 
extra). 


Aquí damos los cambios para hacer 
que las orugas aparezcan en 5 sitios: 


70 LET RsINTIRNDAS+1) 
IMA 80 GOSUB 220+204R 


* 4080 ON R GOSUB 240,260,280,300, 320 


240 LET D=5 
LET A=1 
GOTO 350 
LET D=l 
LET A=9 
GOTO 350 
LET D=5 
LET A=18 
60ro 350 
LET D=10 
LET A=7 
GOTO 350 
LET D=i5 
LET A=15 
GOTO 350 


Puedes utilizar cualquier 
número que quieras 
para A y D, con tal de 
que quepa en la pantalla. 


Para añadir más orugas, cambia el 10 
en las líneas 30 y 220 por un número 
mayor. (Asegúrate, que utilizas el 
mismo número para las dos líneas.) 


Página 13 
Alunizaje 


Para incrementar la velocidad 
permitida para un aterrizaje seguro, 
necesitas hacer cambios en las líneas 
230, 240 y 250. Puedes usar los 
números que quieras; cuanto más alto 
sea el número, más fácil será el juego. 
En este ejemplo se te permite una 
velocidad de 2 para un buen aterrizaje 
y de 7 para un aterrizaje “pasable”: 
230 IF V1)7 THEN PRINT *CHOCASTE-TODOS 
MUERTOS" 
240 IF VI)2 AND VIC? THEN PRINT "VALE, 
PERO ALGUNOS HERIDOS" 


250 1F Vi(=2 THEN PRINT "ATERRIZAJE 
PERFECTO" 


Página 15 
Los monstruos de Galacticón 


Cuatro métodos para hacer que el 
juego sea más difícil: 


1. Comenzar el juego con menos gente 
en el grupo, poniendo un número 
inferior a 5 en la línea 40. 


2. Incrementar el número de 


monstruos, cambiando el 4 en las 47 


líneas 20 y 30. Añade los nombres de 
los monstruos extras en las líneas 81 a 
89, usando MS(5) y MS(6). 


3. Reducir el número de intentos 
alterando el 8 en la línea 160. 


4. Incrementar la posibilidad de que el 
monstruo sea dañado, aumentando el 
4 en la línea 330. 


Página 17 

Cazas extraterrestres 

En este juego, N es el número de 
código. Para cambiar la puntuación de 
modo que se ajuste al número de 
código, has de incrementar cada vez la 
puntuación sumándole N en vez de 1. 
Para ello, cambia la línea 190: 


MALO 1F IS=CHRS(CODE (L6)+N) THEN LET 
S=S+N 


kAOQ190 1F I8=CHRS(ASCILS)=N) THEN LET 
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SeS+N 


Página 19 

Cinturón de asteroides 

Cambia la línea 260 para que el 
ordenador añada ese número de 
estrellas (asteroides) a tu marcador, en 
lugar de 1. El número de estrellas es 
controlado por el valor elegido por N 
en la línea 70, así que, como en el juego 
anterior, has de añadir N al marcador. 
También debes cambiar la línea 320. 


260 LET $=S+N 
320 PRINT "TU PUNTUACION ES *¡S5 
* PUNTOS” 


Página 21 

Viaje al futuro 

1. Para incrementar el número de años 
que deben transcurrir antes de que 
vuelvas a la Tierra, cambia el 100 en la 
línea 30 por un número mayor; por 
ejemplo, 150, quedando así: 

30 LET TmINT(RNDX150+25) 


2. Para incrementar la precisión de 5 a 
2 años, cambia los 5 en las líneas 180 y 
190 por 2, quedando así: 
180 IF ABS(T-T2)<=2 THEN PRINT 

"LLEGASTE A TIEMPO" 


190 IF ABS(T-T2)>2 THEN PRINT 
"NI SIQUIERA CERCA” 


3. La línea 170 contiene el número que 
determina la longitud del tiempo de 
vida. Cambia el 50 por un número más 
alto para mayor tiempo de vida. 


Página 23 
El valle de la Muerte 


Puedes hacer el valle más largo 
cambiando el número en la línea 30 
por otro mayor que 200. 


Página 25 
Minas espaciales 


Añade estas líneas para hacer que el 
ordenador te pregunte si quieres jugar 
de nuevo: 

645 PRINT "OTRO JUEGO? (TECLEA S/N)" 


646 INPUT AS 
647 IF A8m"S" THEN GOTO 10 


Debes entonces poner una nueva línea 
5 y cambiar la 30 para añadir el dinero 
que tienes al final del juego al dinero 

permitido al principio del nuevo juego: 


5 LET M=0 
30 LET MaMeINT(RNDFSO+10)%P 


(Asegúrate de usar la versión correcta 
de RND para tu ordenador.) 
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JUEGOS DE ORDENADOR 


Cada uno de estos nuevos libros contiene sencillos programas de 
juegos para utilizar en los ordenadores domésticos de mayor 
difusión. Junto a cada programa hay explicaciones sobre cómo 
funciona, así como problemas y sugerencias para introducir 
cambios que compliquen las aventuras o las hagan más sencillas, 
según los deseos del usuario. Por medio de estos apasionantes 
juegos, incluso los que nunca hayan utilizado un ordenador 
aprenderán con facilidad cómo funciona un programa sencillo, y 
podrán diseñar alguno por sí mismos. Al final de cada libro 
aparecen las claves de conversión para diversos ordenadores, así 
como un glosario de los términos más usuales en BASIC. 


Títulos de la serie 


ESPIAS 


EDICIONES GENERALES ANAYA 


